(load "collection.el");;FIXME subclass OrderedCollection

(defun SortedCollection (name)
  (let* ((*class "SortedCollection")
	 (*instance-name name)
	 (*values ())
	 (*super (Collection name));;FIXME subclass OrderedCollection
	 
;;	 (*dispatch
;;	  (lambda (msg)
;;	    (cond

;;	     ((eq msg "indexOf:")
;;	      (lambda (key)
;;		(walkthru2 *values key 1));;NOTE first index is 1 not 0

;;	     (t
	      ((*super msg))
;;)
;;	     )))
	      )
    
    *dispatch))
	))
	 
	